SDWTERR MSE! 
BRU 



READ INPUT FILE NAME 



CHECK. FILE TYPE IS CORE- IMAGE 



READ FILE INTO PRGRM MEMORY 



* ' EXE CUT _ 

SGO LDA 

GET 10 STA Gu.- 

SBRM GIFiv 

SBRM . 'OK TO feu "' 
GET10A BAC 

SKE = 1 

BRU GET9+1 

SKN GETPLi BRU *+3MDA =PRGRL15 SBRM CKRLB 

SBRM RSYS 

LDA INFILI 

LDX =PRGRL1 

SBRM GET 

BRU DRDERR 

CLA 

STA INFILI 

SKN GETPL I 

BRU CRA 

GET 8 SBRM EXECRLi 

LDA GETSTLi 

MRG =401000003 

STA SSLs 

LDP . PRGRL1 

STP SSR1 

LDA GET9 

SKN CPARW: 

BRU *+2 

MRG KA 

BRS 9 

3RS 31 

LDP SSR1 

STP PRGRL1 

LDA SSL i 

STA EXECL I 

BRU EXECP 

GET9 NOP SSL>3 

MSET XM6 

BRU ERR.ET+2 



EXIT HERE IF 'PLACE' 
SET PANIC TABLE FOR FORK 



START AS EXECUTIVE 
START UP RECOVERED FILE 

UPDATE PRGRLiAND RETURN FOR NEXT COMMAND 



:£ 


•DEFINE 


? 


■fc 


SETS UFD STATUSES 


SSTPD 


SBRM 


FDFNA 




BRU 


ERRET 




MSET 


M69 




SBRM 


DCHAR3 




BRU 


ERRET 




LDX 


UNPTR 




SKE 


PRI 




BRU 


STl 




LDA 


1,2 




ETR 


=377777773 




STA 


b2 


' 


C3A i SKE COMCH; BRU ST 5 




SBRM 


DCHAR3 




BRU 


ERRET 




SKE 


REA 




BRU 


ERRET 




BRS 


A6 




LDX 


UNPTR 




LDA 


XA 


ST4 


MRG 


1*2 




STA 


1*2 




LDA 


XA 




MRG 


0,2 




STA 


0*2 




BRU 


UPFD 


STl 


XAB 






SKE 


COMCH J BRU *+2 




BRU 


ERRET 




COPY 


BA, B 




SKE 


ACC 




BRU 


ST3 


ST2 


BRS 
XAB 


46 




XMA 


2*2 




ETR 


=67777777B 




ADM 


2*2 




LDA 


0*2 




ETR 


=37777777B 




STA 


0*2 




LDA 


XA 




MRG 


1*2 




STA 


1*2 




BRU 


UPFD 


ST3 


SKE 


PUB 




BRU 


ERRET 




LDB 


XI ' 




BRU 


ST2 


ST5 


BRS AGS 


CLA ; BRU ST4 


'¥ 


'PLACE 1 




SPLACE 


CLA 






BRU 


GET 10 



* 'BRANCH 


t 


S BRANCH SBRM 


RONO 


XAB 




SKE 


OKCH . 


BRU 


E'RRET 


SG0T01 STB 


GETSTLi 


BRU 


GETS 



SSAVE 



SAVE2 



SAVE1 



'SAVE 


i 




SBRM 


RONO 


READ 


STA 


SAVEFLt 




MSET 


M50 




SBRM 


RONO 




STA 


SAVELL! 




CBA 






MSET 


Ml 6 




LDA 


SAVELL i 


READ • 


SU3 


SAVEFL; 




ADD 


= 1 




LD3 


= 1 




SBRM 


GO FN 




CBA } 


SKE COMCHj 


3RU SAVE2 


MSET 


M 3 




SBRM 


RONO 


• • • • R 


BRU 


* + 2 




LDA 


= 2403 




STA 


SAVESLi 




CBA i 


SKE OKCH I 


BRU ERRET 


LDA 


SAVEFLi 


WRITE 


STA 


GET2 




VJIO 


OUTFILi 




LDA 


SAVELL! 




STA 


GET 3 




WIO 


OUTFILI 




LDA 


SAVESLf 




WIO 


OUTFIL! 




LDA 


=PRGRL1 


SET U 


STA 


GET5 . 




LDX 


= GET2 




LDA 


OUTFILi 




SBRM 


■ GBIO 




BRU 


SAV E 1 




BRU 


OUTEX 




MSET 


M 1 




BRU 


OUTEX 





CORE BOUNDS 



O/P FILE NAME AND OPEN FILE OF TYPE 



READ STARTING LOCATION 



OUT CORE BOUNDS AND STARTING LOCATIS 



DATA FOR GBIO, -PERFORM INFORMN..TRB 



* 


'DUMP* 


„ 


SDUMP 


SBRM 
CLA 


EXECRLI 




STA 


TLV1 




LDA 


= NCMEM 


DUMP 10 


ADD 


= 1 


\ 


Sri G 


= 773 




BRU 


DUMP 11 




LDA 


TLV1 




CLB 






LSH 


1 1 




LD3 


. = 4 




SBRM 


GO FN . 




LDA 


OUTFILi 




SBRM 


BRS9 5 




BRU 


SAVE1 




BRU 


OUTEX 


DUMP1 1 


3RS 39 J 


BRU DUMP 105 




BRU 


DUMP 10 



(UPDATE EXRL) 



MIN TLV1 



SREC 



•RECOVER' 


SBRM 


GIFN 


CBA 




SKE 


-A 


BRU 


ERRET 


SBRM 


OK TO GO 


SBRM 


KILIi.6 


LDA 


INFILi 


SBRM 


BRS9 6 


BRU 


DRDERR 


BRU 


CLOSE 



•RESTART* 

RESTARTS "A USER AFTER ACCIDENTAL i DI SCONNECT 



SRESDMP LDA 


=40000003 


SKA 


CPARW 


BRU 


*+2 


BRU 


ERRET . 


EAX 


UFDE 


LDA 


-7*2 


SKG 


= 


BRU 


RDMPM 


STA 


GET2 


BRS 


46 


S3RM 


KILL 6 


CLA 




A!"lrt : : : 


DBA JO 3 


STA 


TLVl 


LDA 


GET2 


LDX 


= 8 


BRS 


1 


BRU 


RESDP1 


SBrm 


3RS96 


BRU 


RESDP1 


CLA 




XMA 


INFIL; 


BRS 


2 


LDA 


GET2 


LDX 


= 9 


BRS 


1 


BRU 


RESDP1 


BRS 


66 


BRS 


2 


LDA 


GET2 


BRS 


67 


CLA 3 




EAX 


UFDE 


STP 


-3,2 


LDA 


TLVl 


ADM* 


DBA JO 3 


BRU 


CLOSE 


RDMPM MSET 


M63 


BRU 


ERRET+2 


RESDP1 LDA 


TLVl 


■ADM* 


DBA JOB 


BRU 


DRDERR 



LOOK FOR RESTART STATUS 



RECOVER RESTART FILi 



•RESTART MISSING* 



•TIMES* 

PRINTS ELAPSED TIMES SINCE BEG OF ACCT PER. 



S TIMES 


SBRM 


MFD 




LDA 


UREAL i 




SBRM 


GETTIM 




SBRM 


HOUR 




MSET 


M4 




LDA 


UREAL i 




SBRM 


DAYTIM 




MSET 


M40 




SBRM 


CHAR3 




BRU 


CRA 




SKE 


YES 




BRU 


CRA 




MSET 


M49 




LDX 


= UFDE 




LDP 


-3,2 




COPY 


A3, BA 




SBRM 


HO UR 




MSET 


M48 




LDX 


= UFDE 




LDA 


-6,2 




MUL i 


= 255 




LSH 


23 




SBRM 


PDNO 




MSET 


M21 




BRU 


CRA 


SSETDA' 


T 


SBRM EXEUSE 


SFIND 


SBRM 


NMVF 




LDA 


XVJR8 




LDX 


= NTTB 


FIND1 


XXA 






SKE 


= 




BRU 


FIND4 




MSET 


M30 




BRU 


CRA 


FIND4 


XXA 






EAX 


-1,2 




SKE 


WERIS,2 




BRU 


FIND1 




STX 


DEL2 




STA 


DEL3 




MSET 


M5 


FIND2 


LDA 


DEL2 




SBRM 


PDNO 


FIND3 


LDA 


DEL2 




SKE 


= G 




BRU 


• *+2 




BRU 


CRA 




SUB 


= 1 




STA 


DELS 




CAX 






LDA 


UERIS, 2 




SKE 


DEL3 




BRU 


FIND3 




LDA 


COMCH 




CIO 


COUT 




BRU 


FIND2 



SBRM SDAT; BRU CRA 



* 'STATUS' 

SMA LDA PRGRL15 MRG PRGRL25 SKE =05 BRU * + 2 

3RU MA25 MSET M215 EAX PRGRL j 5 SBRM PRMA 
MA2 SKN SYSTL5 BRU *+25 BRU CRA5 MSET M21 

SBRM PSC'Ni CLA ; CIO COUT5 EAX SSRL5 SBRM 



PRMA; BRU CRA 



SMA1 



'DISC ALLOCATION • 



SBRM 
MSET 
EAX 
LDP 
STP 
LDA 
MULi 
LSH 
SBRM 
MSET 
LDA 
MULi 
LSH 
SBRM 
MSET 
LDA 
MULI 
LSH 
SBRM 
BRU 



MFD 
M27 
UFDE 
-6*2 
UNPTR 
-4>2 
= 255 
23 

PDNO 
M36 
UNPTR 
= 255 
23 

PDNO 
M54 
UNPTR 1 
= 255 
23 

PDNO 
CRA 



PRMA . ZRO PRMAi; STX DEL25 LDX = -3 

PRMA5 STX DEL35 LDA DEL25 SBRM EttB; SKG = 

BRU PRMA45 SBRM PONO 
PRMA3 LDB SLSHCH5 LDA DEL35 SKE =-55 CLB ; CBA 5 CIO CO UT 

LDX DEL35 BRX PRMA55 : BRR* PRMA 

PRMA4 LDA MINCH5 CIO CO UTi BRU PRMA3 



DATE 



SDATE 



LDA 


real; 


S3RM 


DAYTIM 


BRU 


CRA 



SWHO 


LDA =-15 STA RLV2 




WHOl 


WIN RLV25 LDA RLV2 I SKG 
BRU *+2 5 BRU CRA 


=NTTB- 1 




CAX5 LDA AUNN,25 SKE = 05 


BRU *+2 




SBRM OUTUSE USER NAME 






MSET M55 LDA RLV2 5 SBRM 


PDNO 




MSET M215 BRU WHOl 




; i : 


•ACCEPT LINKS' 




SAM- 


LDX =-1 
LDA =2 ' 

BRS 2 5 
BRU CRA 





BRU WHO 1 



LINE NO 



REFUSE LINKS' 



SRM 



LDX 


= -1 


CLA 




BRS 


25 


BRU 


CRA 



* 'LINK' 

SMLi SBRM RDN0 5 XAB; SKE OKCH; BRU ABORT 

ML1 BRS 46; CBA; BRS 23J BRU MLR 

MIN NLNK 

MSET M21J LDX UTTYJ SBRM OUTUSEJ MSET Mo 

LDA UTTY; SBRM PD.NO* MSET M70J BRU CRA 
MLR SKA =777777003 

BRU MLR1 

'MSET Mil 'BUSY 1 

BRU CRA 
MLR1 SKA =6000000B 

BRU MLR2 

MSET M14 

BRU AM • 

MLR2 MSET M13 

BRU CRA 



LINKS USER TO OPERATOR 



SCSHAR 


E LDA 


OPR 




LDX 


REAL! 




STX 


LGTM 




BRU 


ML1 


♦ 


t it i 




SQT 


CIO 


CIN 




SKE 


EOT'CH 




BRU 


-*+2 




BRU 


CRA 




SKE 


CRCH 




BRU 


QT 


n 


LDA . 


LINE 




CIO 


COUT 




BRU 


QT 



CTS- BLOCK) 



